0 CLS0:CLEAR2000,36762:DIMK(255),T,M,E,H,V,K,L,S,F,R,P,Q,U,W,B,A:GOSUB5000:T=RND(-(PEEK(9)*256+PEEK(10))):GOTO100
1 RETURN
2 P=P+1:RETURN
3 P=P-1:RETURN
4 ON1-(PEEK(P)<>30)GOTO28:FORT=P+VTOP+ASTEPV:ONK(PEEK(T))GOTO5,5,5:GOSUB6
5 POKET,34:NEXT:FORT=P+VTOP+ASTEPV:POKET,V:NEXT:F=F-10:RETURN
6 SOUND200,1:I=I+1:ON1-(I-(5*INT(I/5))=0)GOSUB1,110:RETURN
7 POKEE-1,191:NEXT:GOTO40
8 R=RND(B)+H+2:POKER,43:POKER+1,15:POKER+2,43:RETURN
9 R=RND(B)+H+2:POKER,30:RETURN
10 S=S-1:POKE49151,64:FORT=0TO15:POKEP,42:POKEP,24:NEXT:SOUND1,1:POKEE,S:SOUND50,1
11 ON1-(S<49)GOTO1:F=-10:SC=SC+Q:Q=0:GOSUB400:RETURN
15 SOUND150,3:F=F+LV:RETURN
20 FORF=500TO0STEP-1:POKEH+RND(V),42:ONRND(S)GOSUB8:ONRND(B)GOSUB9:POKEP,L:PRINT@Y,"y";:POKEE,S:POKEH,V:POKEX,V
22 ONK(PEEK(K)ANDPEEK(2))GOSUB4,3,2:L=PEEK(P):POKEP,B:ONK(L)GOSUB1,10,15:ON1-(F>U)GOTO7:Q=Q+1:ON1-(Q<W)GOSUB30:NEXT:GOTO40
24 POKEE-1,191:NEXT:SC=SC+Q:Q=0:RETURN
25 R=RND(15)+H+7:POKER,15:RETURN
26 R=RND(15)+487:PRINT@R,"ßß";:RETURN
27 R=RND(15)+H+7:POKER,30:RETURN
28 POKEP,V:GOTO6
30 SC=SC+Q:FORQ=200TO0STEP-1:ONRND(10)GOSUB27:ONRND(S)GOSUB25:ONRND(5)GOSUB26:POKEP,L:PRINT@Y,"ßßßßßßßß";:PRINT@505,"ßßßßßß";:POKEE,S
32 PRINT@478,"ßß";:ONK(PEEK(K)ANDPEEK(2))GOSUB4,3,2:L=PEEK(P):POKEP,B:ONK(L)GOSUB1,10,15:ON1-(F>U)GOTO24:NEXT:PRINT@510,"ßß";:RETURN
40 IFF<-10ANDF>-20THENPRINT"SHIP DESTROYED!":GOTO44
42 PRINT"OUT OF FUEL!"TAB(29)"+O+";
44 SC=SC+Q+(I*100):PRINT"SCORE:"SC:PRINT"ENEMY SHIPS DESTROYED:"I;TAB(31)"^";:FORZ=1TO4000:NEXT
46 IFSC>HSTHENHS=SC
50 GOSUB6000:GOSUB6140:GOTO100
100 CLS6:P=M+112:GOSUB250:POKEP,B:PRINT@3*32+2,"PREPARE";:PRINT@4*32+2,"  FOR  ";:PRINT@5*32+2,"LAUNCH!";
105 FORZ=1TO3500:NEXT:PRINT@5*32+20,"LAUNCH!";:L=32:S=51:I=0:Q=0:SC=0:GOTO20
110 POKEP,B:FORZ=P+VTOP+ASTEPV:POKEZ,V:NEXT:S=S+1:FORZ=1TO6:SOUND100,2:POKEE,S+64:SOUND50,2:POKEE,S:NEXT:POKEP,V:RETURN
250 PRINT@511,"y";:POKEH,223:FORT=M+80TOE-16STEP32:POKET,V:NEXT:RETURN
400 FORT=0TO9
410 POKEP,35:POKEP,43:POKEP,42
420 POKEP,58:POKEP,32:POKEP,24:POKE49151,64
430 POKEP-1,45:POKEP+1,45:POKEP-32,33:POKEP+32,33
440 POKEP-1,32:POKEP+1,32:POKEP-32,32:POKEP+32,32:POKEP,42:POKE49151,16
450 FORZ=0TO75:NEXT:NEXT
500 POKEP,32:FORZ=0TO2000:NEXT:RETURN
5000 V=32:M=16384:E=16895:H=M+479:K=383:S=51:U=100:W=500:A=128:B=25
5010 K(65)=2:K(83)=3:K(32)=1:K(42)=2:K(15)=3:K(43)=3:K(30)=4:K(223)=2
5020 PK=17023
5021 X=36762:FORI=0TO103:POKEX+I,PEEK(64022+I):NEXT:DATA49,49,60,55,54
5022 FORI=0TO4:READY:POKEX+I,Y:NEXT:POKE36855,V:IFPEEK(65498)=69THENPK=PK-16640:POKE&HFA73,V:GOTO5100
5023 POKE17033,143:POKE17034,154:POKE17032,126
5100 X=H-1:Y=511:GOSUB6000:GOSUB6140
5110 LV=99:RETURN
6000 POKE49151,64:CLS0
6010 PRINT@39,"¯€¥ª®¬¨¬®¨®¬¨¦¬¢®¬¢€€€€€€";
6020 PRINT"€€€€€€€ªªªª®¨€€ª€®¨€ª€ª«£¨€€€€€€";
6030 PRINT"€€€€€€€ª¥€ª«£¢€ª€«£¢©£¨ª ª ";
6040 PRINT@192,"ÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓ";
6070 PRINT@256,"ÞÜÜÜÜÜÜÜÜÜÜÜÜÜÜÝÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÝ";
6080 PRINT"ÚINSTRUCTIONS: Õ*** TODAY'S ***Õ";
6090 PRINT"Ú<A> = LEFT    Õ** VERY BEST **Õ";
6100 PRINT"Ú<S> = RIGHT   ÕÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓ×";
6110 PRINT"Ú<SPACE> = FIREÕ               Õ";
6120 PRINT"ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ";:PRINT@400+((15-LEN(STR$(HS)))/2),HS;
6130 PRINT@224,"***** A GAME BY JIM GERRIE *****";:RETURN
6140 FORT=1TO300:IFINKEY$="B"THENT=300:GOTO6170
6145 NEXT
6150 PRINT@224,"*****   HIT <B> TO BEGIN   *****";
6160 FORT=1TO300:IFINKEY$="B"THENT=300:GOTO6170
6165 NEXT:PRINT@224,"***** A GAME BY JIM GERRIE *****";:GOTO6140
6170 NEXT:POKE49151,16:RETURN
7000 REM INSPIRED BY A GAME
7010 REM BY KAY THEISSEL
